(set-language-environment): Fix

previous change: don't use dos-codepage when unbound.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 68c91a75aca1cdca8d0e006273daf329eb1bf93a..cc387c32d474b547f88f3298187b6c723947a9a8 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1249,7 +1249,9 @@ specifies the character set for the major languages of Western Europe."
                      (delete input-method input-method-history))))))
   (let ((nonascii (get-language-info language-name 'nonascii-translation))
        (dos-table
-        (intern (concat "cp" dos-codepage "-nonascii-translation-table"))))
+        (if (eq window-system 'pc)
+            (intern
+             (concat "cp" dos-codepage "-nonascii-translation-table")))))
     (cond
      ((char-table-p nonascii)
       (setq nonascii-translation-table nonascii))